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DebugFTPDefs: DEFINITIONS - 

BEGIN 

FetchObject: TYPE » RECORD[ 

ConnectToHost: PROCEDURE [host, directory: STRING], 
CloseConnection: PROCEDURE, 
ListFiles: PROCEDURE [designator: STRING], 
LoadFiles: PROCEDURE [filename: STRING], 
StoreFile: PROCEDURE [filename: STRING], 
DumpFiles: PROCEDURE [filename: STRING], 
RetrieveFile: PROCEDURE [filename: STRING], 
Chat: PROCEDURE]; 

FetchHandle: TYPE = POINTER TO FetchObject; 

AddFetch: PROCEDURE [FetchHandle]; 

Call FTP: PROCEDURE; 

END... 


